% V20210224 - 6.8 GW_SHELF_NEWCELL

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Shelf Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

GW_ADD_TEXT(p, ~
 "Shelf = invisible structure to place controls on the same line:")

% Start the shelf system.
GW_SHELF_OPEN(p)

 % First control on the shelf.
 GW_ADD_BUTTON(p, "Button #1", "")

 % Open a new cell on the shelf for a control.
 GW_SHELF_NEWCELL(p)
 GW_ADD_INPUTLINE(p, "Input line:", "Sample")

 % Another new cell for another control.
 GW_SHELF_NEWCELL(p)
 GW_ADD_BUTTON(p, "Button #2", "")

% End of shelf system.
GW_SHELF_CLOSE(p)

% Show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Shelf example."